## unit test of the code

# source necessary files
source('datastructure/load.R')
# get data for specific dates range and cusips
dd <- readData(c("2011-01-05", "2011-01-15"), c("36720410", "46603210"))
